home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Graphics / GraphicsWorkshop / Source / HelpControl.m < prev    next >
Text File  |  1992-05-18  |  2KB  |  88 lines

  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import <stdio.h>
  5. #import <sys/param.h>
  6. #import <appkit/Application.h>
  7. #import <appkit/Panel.h>
  8. #import <appkit/Cell.h>
  9. #import <appkit/Button.h>
  10. #import <appkit/PopUpList.h>
  11. #import <appkit/Text.h>
  12. #import <appkit/ScrollView.h>
  13. #import "GraphicApp.h"
  14. #import "HelpControl.h"
  15.  
  16. @implementation HelpControl
  17.  
  18. - loadHelpPage: (const char *)page
  19. {
  20.     char            buffer[MAXPATHLEN];
  21.     NXStream    *myStream;
  22.     FILE        *myFile;
  23.         
  24.     fprintf(stderr, "And let's set up the file to view\n");
  25.     sprintf(buffer, "%s/Help/%s.rtf", (char *)[NXApp appPath], page); 
  26.     fprintf(stderr, "Attempting to open %s\n", buffer);
  27.     myFile = fopen(buffer, "r");
  28.     if (myFile) { 
  29.         fprintf(stderr, "File opened\n");
  30.         myStream = NXOpenFile(fileno(myFile), NX_READONLY);
  31.         if (myStream) {
  32.             fprintf(stderr, "Stream opened\n");
  33.             [[textPanel docView] readRichText: myStream];
  34.             NXClose(myStream);
  35.         }
  36.         fclose(myFile);
  37.     }
  38.  
  39.     return self;
  40. }
  41.  
  42. - popClick
  43. {
  44.     [self loadHelpPage: [myPopUp selectedItem]];
  45.  
  46.     return self;
  47. }
  48.  
  49.  
  50. + new
  51. {
  52.     self = [super new];
  53.     
  54.     return self;
  55. }
  56.  
  57. - setTextPanel:anObject
  58. {
  59.     textPanel = anObject;
  60.  
  61.     [self loadHelpPage: "Title Page"];
  62.  
  63.     return self;
  64. }
  65.  
  66. - setPopUpButton:anObject
  67. {
  68.     popUpButton = anObject;
  69.  
  70.     myPopUp = [popUpButton target];
  71.     [myPopUp init];
  72.     [myPopUp addItem: "Title Page"];
  73.     [myPopUp addItem: "Overview"];
  74.     [myPopUp addItem: "Menus"];
  75.     [myPopUp addItem: "Programming"];
  76.     [myPopUp addItem: "Bug List"];
  77.     [myPopUp addItem: "Revision History"];
  78.     [myPopUp addItem: "Copyrights"];
  79.     [myPopUp addItem: "Last Words"];
  80.     [myPopUp setAction: @selector(popClick)];
  81.     [myPopUp setTarget: self];
  82.     [popUpButton setTitle: "Title Page"];
  83.  
  84.     return self;
  85. }
  86.  
  87. @end
  88.